home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / editors / vgacad / viewbld.bas < prev    next >
Encoding:
BASIC Source File  |  1989-12-19  |  315 b   |  20 lines
  1. SCREEN 13
  2.  
  3. DEF SEG = &HA000
  4. BLOAD "pboy.plt", 0
  5.  
  6. FOR plt = 0 TO 255
  7.         pltptr = plt * 3
  8.         r = PEEK(pltptr)
  9.         g = PEEK(pltptr + 1)
  10.         b = PEEK(pltptr + 2)
  11.         OUT 968, plt
  12.         OUT 969, r
  13.         OUT 969, g
  14.         OUT 969, b
  15. NEXT
  16.  
  17. BLOAD "pboy.bld", 0
  18. a$ = INPUT$(1)
  19.  
  20.